home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Smart_POS(2101682132008.psc / Smart POS / adoModuli.bas next >
BASIC Source File  |  2007-08-30  |  4KB  |  112 lines
  1. Attribute VB_Name = "adoModuli"
  2. Option Explicit
  3. Public strSearch As String
  4. Public cn As ADODB.Connection
  5. Public cnUser As ADODB.Connection
  6. Public MSDatabase
  7. Public UserDatabase
  8. Global Const DEFSOURCE = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="
  9. Public db As ADODB.Connection
  10. Public DBConnect As Boolean
  11. Public UserConnected As Boolean
  12. Dim strSQl As String
  13. '=========
  14. Public rsKategoria As ADODB.Recordset
  15. Public rsPerdoruesit As ADODB.Recordset
  16. Public rsvat As ADODB.Recordset
  17. Public rsEmp As ADODB.Recordset
  18. Public rsitem As ADODB.Recordset
  19. Public rsSupp As ADODB.Recordset
  20. Public rsLog As ADODB.Recordset
  21. Public rsFatura As ADODB.Recordset
  22. Public Sub OpenDB()
  23. Set db = New ADODB.Connection
  24. db.Open DEFSOURCE & App.Path & "\Data\dbase.db;" & ";Persist Security Info=False;Jet OLEDB:Database Password=cc03bn01"
  25. End Sub
  26. Public Function DataConnect() As Boolean
  27. On Error GoTo OpenErr
  28. Set cn = New ADODB.Connection
  29. cn.CursorLocation = adUseClient
  30. MSDatabase = App.Path & ("\Data\dbase.db")
  31. cn.CursorLocation = adUseClient
  32. cn.Provider = "Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=cc03bn01"
  33.     cn.Open MSDatabase ', Admin
  34. Exit Function
  35. OpenErr:
  36. MsgBox "Gabim hapje " & MSDatabase & vbNewLine & err.Description, vbCritical, "Gabim!"
  37. DBConnect = False
  38. End Function
  39. Public Sub OpenDB1()
  40. Set db = New ADODB.Connection
  41. db.Open DEFSOURCE & App.Path & "\Data\dbase.db;" & ";Persist Security Info=False;Jet OLEDB:Database Password=cc03bn01"
  42. End Sub
  43. Public Sub OpenDB2()
  44. Set db = New ADODB.Connection
  45. db.Open DEFSOURCE & App.Path & "\Data\dbase.db;" & ";Persist Security Info=False;Jet OLEDB:Database Password=cc03bn01"
  46. End Sub
  47. Public Sub OpenDB3()
  48. Set db = New ADODB.Connection
  49. db.Open DEFSOURCE & App.Path & "\Data\dbase.db;" & ";Persist Security Info=False;Jet OLEDB:Database Password=cc03bn01"
  50. End Sub
  51. Public Function DataConnect1() As Boolean
  52. On Error GoTo OpenErr
  53. Set cn = New ADODB.Connection
  54. cn.CursorLocation = adUseClient
  55. MSDatabase = App.Path & ("\Data\dbase.db")
  56. cn.CursorLocation = adUseClient
  57. cn.Provider = "Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=cc03bn01"
  58.     cn.Open MSDatabase ', Admin
  59. Exit Function
  60. OpenErr:
  61. MsgBox "Gabim hapje " & MSDatabase & vbNewLine & err.Description, vbCritical, "Gabim!"
  62. DBConnect = False
  63. End Function
  64. Public Function DataConnect2() As Boolean
  65. Dim Arq56 As String
  66. On Error GoTo OpenErr
  67. Set cn = New ADODB.Connection
  68. cn.CursorLocation = adUseClient
  69. MSDatabase = App.Path & ("\Data\dbase.db")
  70. cn.CursorLocation = adUseClient
  71. cn.Provider = "Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=cc03bn01"
  72.     cn.Open MSDatabase ', Admin
  73. Exit Function
  74. OpenErr:
  75. MsgBox "Gabim hapje " & MSDatabase & vbNewLine & err.Description, vbCritical, "Gabim!"
  76. DBConnect = False
  77. End Function
  78. Public Function DataConnect3() As Boolean
  79. On Error GoTo OpenErr
  80. Set cn = New ADODB.Connection
  81. cn.CursorLocation = adUseClient
  82. MSDatabase = App.Path & ("\Data\dbase.db")
  83. cn.CursorLocation = adUseClient
  84. cn.Provider = "Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=cc03bn01"
  85.     cn.Open MSDatabase ', Admin
  86. Exit Function
  87. OpenErr:
  88. MsgBox "Gabim hapje " & MSDatabase & vbNewLine & err.Description, vbCritical, "Gabim!"
  89. DBConnect = False
  90. End Function
  91. Public Sub OpenData()
  92. Set rsPerdoruesit = New ADODB.Recordset
  93. rsPerdoruesit.Open "Select * FROM tblperdoruesit", cn, adOpenStatic, adLockOptimistic
  94. End Sub
  95. Public Sub OpenData1()
  96. Set rsKategoria = New ADODB.Recordset
  97. rsKategoria.Open "Select * FROM tblKategoria", cn, adOpenStatic, adLockOptimistic
  98. '============
  99. End Sub
  100. Public Sub OpenData2()
  101. Set rsitem = New ADODB.Recordset
  102. rsitem.Open "Select * FROM tblartikujt", cn, adOpenStatic, adLockOptimistic
  103. '============
  104. End Sub
  105. Public Sub OpenData3()
  106. Set rsSupp = New ADODB.Recordset
  107. rsSupp.Open "Select * FROM tblFurnizuesit", cn, adOpenStatic, adLockOptimistic
  108. '============
  109. Set rsLog = New ADODB.Recordset
  110. rsLog.Open "Select * FROM historia", cn, adOpenStatic, adLockOptimistic
  111. End Sub
  112.